perm filename FOO.F4[S76,JMC] blob sn#212867 filedate 1976-04-28 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002		DOUBLE PRECISION X
C00003 ENDMK
CāŠ—;
	DOUBLE PRECISION X
	N=0
	ACCEPT 1,X
1	FORMAT(F1.6)
2	IF (X .GT. 2) GO TO 20
	N = N+1
	X = X**X
	GO TO 2
20	TYPE 3,N
3	FORMAT(I10)
	STOP
	END